﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	安全退出页面
'	2011.2.1

Sub main
	checkLogin()'验证登录
	Dim a,userid,rs,sql,body_,sid_
	hu.title = "安全退出"
	body_ = "[div=nav]-"&hu.url("?aid=index","首页")&"-"&hu.url("bbs_user.asp","会员中心")&"-安全退出[/div]"
	a=getN("a", 0)
	userid=user_array(0)
	If a=0 Then
		body_ = body_ & "安全退出会使书签失效，你确定退出登录？<br/>"&hu.url("bbs_logout.asp?a=1","对,确定安全退出")&"<br/>"&_
			hu.url("bbs_user.asp","否,返回会员中心")
	Else
		sql = "select top 1 sid from 74hu_user where id="&userid
		Set rs = hu.conn(sql)
		If Not rs.eof Then
			sid_=getOnlySid()
			hu.conn("update 74hu_user set sid='"&sid_&"' where id="&userid)
			Call delVisit(userid)'删除访客记录
			body_ = body_ & "退出成功！重新"&hu.url("bbs_login.asp","登录")
		Else
			body_ = body_ & "退出失败！"
		End If
		rs.close
		Set rs=Nothing
	End If
	hu.body = comUbb(body_) & "<br/><br/>温馨提示：<br/>安全退出可以有效保证账户安全<br/>"
End Sub

%>